function fstexp = fstexp(x,k,l)
fW=(k./l).*((x./l).^(k-1)).*exp(-((x./l).^k));
end

